home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / KEYS.SAB < prev    next >
Text File  |  1991-09-13  |  2KB  |  56 lines
  1. label start
  2. cls
  3. display cp.dis
  4. write "KEYS.SAB" at 2,36
  5. write "Crystal Palace Key Builder" at 4,27
  6. set v wkey to ""
  7. write "A....... CUR.MAST                  L.......               " at 7,14
  8. write "B....... OLD.MAST                  M.......               " at 8,14
  9. write "C....... THISTORY                  N.......               " at 9,14
  10. write "D.......                           O.......               " at 10,14
  11. write "E.......                           P.......               " at 11,14
  12. write "F.......                           Q.......               " at 12,14
  13. write "G.......                           R.......               " at 13,14
  14. write "H.......                           S.......               " at 14,14
  15. write "I.......                           T.......               " at 15,14
  16. write "J.......                           U.......               " at 16,14
  17. write "K.......                           V.......               " at 17,14
  18. fillin wkey using "Enter Table To Build Key (Or ESC) -> " at 19,10
  19. if wkey = "" then ; goto fin ; endif
  20. if wkey = "a" or wkey = "A" then ; goto keya ; endif
  21. if wkey = "b" or wkey = "B" then ; goto keyb ; endif
  22. if wkey = "c" or wkey = "C" then ; goto keyc ; endif
  23. if wkey = "d" or wkey = "D" then ; goto keyd ; endif
  24.   goto start
  25. label keya
  26.   run curmast.bld
  27.   goto start
  28. label keyb
  29.   run oldmast.bld
  30.   goto start
  31. label keyc
  32.   run thistory.bld
  33.   goto start
  34. label keyd
  35.   goto start
  36. label keye
  37.   goto start
  38. label keyf
  39.   goto start
  40. label keyg
  41.   goto start
  42. label keyh
  43.   goto start
  44. label keyi
  45.   goto start
  46. label keyj
  47.   goto start
  48. label keyk
  49.   goto start
  50. label keyl
  51.   goto start
  52. label fin
  53.   cls
  54.   return
  55.  
  56.